% Listing 14-7 - Script to plot eight instrument spectra
clear
clc

 rows = 4; cols = 2
 subplot(rows, cols, 1)
 inst('sax','Saxophone');
 subplot(rows, cols, 2)
 inst('flute', 'Flute');
 subplot(rows, cols, 3)
 inst('tbone','Trombone');
 subplot(rows, cols, 4)
 inst('piano', 'Piano');
 subplot(rows, cols, 5)
 inst('tpt', 'Trumpet');
 subplot(rows, cols, 6)
 inst('mutetpt', 'Muted Trumpet');
 subplot(rows, cols, 7)
 inst('violin', 'Violin');
 subplot(rows, cols, 8)
 inst('cello', 'Cello');
